50000 REM SUBROUTINE TO GET TIME FROM
50005 REM USER AND CONVERT FOR TI$ AND
50010 REM THE TOD CLOCK IN CIA #1.
50015 :
50020 REM BY NOEL NYMAN
50025 :
50030 REM CALLED AS A SUBROUTINE
50035 :
50040 REM USES THE FOLLOWING VARIABLES
50045 REM  AP  - AM/PM FLAG, AM=0 PM=1
50050 REM  HT  - HOURS, USED FOR TOD
50055 REM  MT  - MINUTES, USED FOR TOD
50060 REM  SC  - SECONDS, USED FOR TOD
50065 REM  TT  - TEMPORARY VARIABLE
50070 REM  TT% - TEMPORARY VARIABLE
50075 REM  HT$ - HOURS FOR TI$
50080 REM  MT$ - MINUTES FOR TI$
50085 REM  ST$ - SECONDS FOR TI$
50090 REM  TT$ - TEMPORARY FOR TI$
50095 REM  AP$ - TEMPORARY VARIABLE
50099 :
50100 PRINT "CURRENT TIME IS " LEFT$(TI$,2) ":" MID$(TI$,3,2) ":";
50110 PRINT RIGHT$(TI$,2)
50120 PRINT: PRINT "ENTER NEW TIME, OR  \ [146] TO QUIT"
50130 PRINT: PRINT "ENTER NEW HOURS (0-23): ";
50140 OPEN 9,0: INPUT#9,HT$: CLOSE9
50150 IF HT$="\" THEN RETURN
50160 HT=VAL(HT$): IF HT<0 OR HT>23 GOTO 50130
50170 AP=0-(HT>12)
50180 :
50200 PRINT: PRINT "ENTER NEW MINUTES (0-59): ";
50210 OPEN 9,0: INPUT#9,MT$: CLOSE9
50220 MT=VAL(MT$): IF MT<0 OR MT>59 GOTO 50200
50230 IF LEN(MT$)<2 THEN MT$="00"+MT$
50240 :
50300 PRINT: PRINT "ENTER NEW SECONDS (0-59): ";
50310 OPEN 9,0: INPUT#9,ST$: CLOSE9
50320 SC=VAL(ST$): IF SC<0 OR SC>59 GOTO 50300
50330 IF LEN(ST$)<2 THEN ST$="00"+ST$
50340 :
50400 IF AP GOTO 50500
50410 PRINT: IF HT<12 GOTO 50460
50420 PRINT "AM OR NOON (A/N)?";
50430 GET AP$: IF AP$="" GOTO 50430
50440 IF AP$<>"A" AND AP$<>"[193]" AND AP$<>"N" AND AP$<>"[206]" GOTO 50430
50450 AP=0-(AP$="N")-(AP$="[206]"): GOTO 50500
50460 PRINT "AM OR PM (A/P)?";
50470 GET AP$: IF AP$="" GOTO 50470
50480 IF AP$<>"A" AND AP$<>"[193]" AND AP$<>"P" AND AP$<>"[208]" GOTO 50470
50490 AP=0-(AP$="P")-(AP$="[208]")
50500 HT=HT+12*((HT=12) AND (AP=0))
50510 HT=HT-12*((HT<12) AND (AP=1))
50520 HT$=STR$(HT): HT$="00"+RIGHT$(HT$,LEN(HT$)-1)
50530 TT$=RIGHT$(HT$,2)+RIGHT$(MT$,2)+RIGHT$(ST$,2): TI$=TT$
50540 TT=0: IF HT>12 THEN HT=HT-12: TT=128
50550 TT%=HT/10: TT=TT+(16*TT%)+(HT-10*TT%)
50560 POKE 56335,PEEK(56335) AND 127
50570 POKE 56331,TT
50580 TT%=MT/10: TT=(16*TT%)+(MT-10*TT%)
50590 POKE 56330,TT
50600 TT%=SC/10: TT=(16*TT%)+(SC-10*TT%)
50610 POKE 56329,TT
50620 POKE 56328,0
50630 PRINT: GOTO 50100